home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / fapx / fapxmail.plp < prev    next >
Text File  |  1991-10-18  |  3KB  |  127 lines
  1. /************************************************************************
  2. *    未読メールの処理                        *
  3. *************************************************************************/
  4. /*    Down all text of one mail    */
  5. %AllText{
  6.     wait    (
  7.         Wtime2*5,
  8.         {AbortOff({\nホストの反応が鈍いよぉ～\n})},
  9.         {はバイナリーのため、表示出来ません◆},
  10.         {BMcnt:=BMcnt+1;AllText;},
  11.         {6:転送＋削除  E:終了)\n：},
  12.         {type({2\n});AllText;},
  13.         {続き (改行で表示　E:終了)\n＞},
  14.         {type({\n});AllText;},
  15.         {◆次頁はありません◆\n＞},,
  16.         {3:送信簿　0:その他　E:終了）\n＞},,
  17.         {NAPLPSのデコーダーが必要です。準備 (1:OK  2:NG) \n：},
  18.         {type({2\n});AllText;}
  19.         );
  20.     };
  21.  
  22. %MailDown
  23.     {
  24.     display({\nメールのダウンロードを開始します\n});
  25.     dispoff({No});/* debug */
  26.     command({del }|TEMP2|{_MOPTERM.EML});
  27.     dispoff({No});
  28.     receive(TEMP2|{_MOPTERM.EML});
  29.     WAITCHAR(Wtime2,{1:受信　2:送信　3:送信簿　0:その他　E:終了）\n＞},{});
  30.     type({READ NEW\n});
  31.     AllText;
  32.     stoprec;
  33.     case    (COMPRESS={Yes}&&ARCHIVER<>{},
  34.         {Yes},
  35.         {
  36.         dispoff({Yes});
  37.         setcdir(TEMP);
  38.         %file    @nowfile(TEMP2|{_mopterm.eml},TEMP);
  39.         dispoff({Yes});
  40.         command(ARCHIVER|{ a }|LOG2|{Nifmail.lzh }|TEMP2|file);
  41.         command({del }|TEMP2|file);
  42.         dispoff({No});
  43.         },
  44.         ,
  45.         {
  46.         mkdir2(LOG2|{Nifmail});
  47.         renfile(TEMP2|{_mopterm.eml},LOG2|{Nifmail});
  48.         }
  49.         );
  50.     setcdir(CDIR);
  51.     };
  52.  
  53. %BMail2    {
  54.     [bmailno]
  55.     type(bmailno|{\n});
  56.     wait    (
  57.         Wtime2,,
  58.         { (改行のみで終了)\n：},
  59.         {
  60.         type(TEMP2|{_MOPTERM.BML\n});
  61.         wait    (
  62.             ,,
  63.             {2:しない)\n：},
  64.             {
  65.             case    (COMPRESS={Yes}&&archiver<>{},
  66.                 {Yes},
  67.                 {
  68.                 dispoff({Yes});
  69.                 setcdir(TEMP);
  70.                 %file    @nowfile(TEMP2|{_mopterm.bml},TEMP);
  71.                 dispoff({Yes});
  72.                 command(ARCHIVER|{ a }|LOG2|{Nifbmail.lzh }|
  73.                             TEMP2|file);
  74.                 command({del }|TEMP2|file);
  75.                 dispoff({No});
  76.                 },
  77.                 ,
  78.                 {
  79.                 mkdir2(LOG2|{Nifbmail});
  80.                 renfile(TEMP2|{_mopterm.bml},LOG2|{Nifbmail});
  81.                 }
  82.                 );
  83.             setcdir(CDIR);
  84.             type({2\n});
  85.             WAITABORT(Wtime2);
  86.             MAIL;        /* 次のﾒｰﾙがあればﾀﾞｳﾝﾛｰﾄﾞする */
  87.             }
  88.             );
  89.         }
  90.         );
  91.     };
  92.  
  93. %BMail    {
  94.     footnote({バイナリメールをダウンロードしています});
  95.     type({DOWN PROT:BPL\n});
  96.     wait    (
  97.         Wtime2,{AbortOff({\nホストの反応が鈍いよぉ～\n})},
  98.         {\n  },{wait(Wtime2,,{/});
  99.             BMAILNO:=@getchar(@tail(@laststr,{\n },{/}),1,2);
  100.             WAITABORT(Wtime2);BMail2(BMAILNO);
  101.             },
  102.         {\n＞},
  103.         );
  104.     };
  105.  
  106. %MAIL    {
  107.     footnote({メールをダウンロードしています});
  108.     BMcnt:=0;
  109.     type({MCHK\n});
  110.     wait    (
  111.         Wtime2,{AbortOff({\nホストの反応が鈍いよぉ～\n})},
  112.         {\n＞},,
  113.         {通届いています（未読分},
  114.         {    WAITABORT(Wtime2);
  115.             type({GO MAIL\n});
  116.             MailDown;
  117.         }
  118.         );
  119.     case    (
  120.         BMcnt==0,
  121.         {No},{BMail},
  122.         {Yes},{},
  123.         );
  124.     };
  125.  
  126. MAIL;
  127.